"UIPATH"="Program Options\Built in Windows Apps\Windows Help\Colors"
"NAME"="IfPopup Color"
"LANGUAGE"="VBScript"
"TEXT 1"="Set Color"
"TEXT 2"="Reset Color"
"DESCRIPTION 1"="This plug-in lets you change the colors used by Windows Help."
"DESCRIPTION 2"="The IfPopup color is used for hyperlinks which conditionally open popup windows."
"DESCRIPTION 3"="NOTE: This setting applies to the old WinHelp (*.hlp) format, not the new HTML Help format (*.chm). The latter shares its link settings with Internet Explorer."
"COMMENT 1"="Thanks to Axcel216 [axcel216@aol.com] for this tip!"
"VERSION"="1.01"
"AUTHOR"="Xteq Systems (Neil R. Turner)"
"COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
"CONTACTURL"="http://www.xteq.com/"
sF="WIN.INI"
sS="Windows Help"
sV="IfPopupColor"
SUB Plugin_Initialize
' Ripped directly from XQ Hot Tracking Color 1.xpl
Call SetUIElement(1,"Red") '255 0 0
Call SetUIElement(2,"Lime") '0 255 0
Call SetUIElement(3,"Blue") '0 0 255
Call SetUIElement(4,"Yellow")'255 255 0
Call SetUIElement(5,"White") '255 255 255
Call SetUIElement(6,"Black") '0 0 0
Call SetUIElement(7,"Olive") '80 80 0
Call SetUIElement(8,"Green") '0 80 0
Call SetUIElement(9,"Maroon") '80 0 0
Call SetUIELement(10,"Navy") '0 0 80
Call SetUIElement(11,"Purple") '80 0 80
Call SetUIElement(12,"Gray") '80 80 80
Call SetUIElement(13,"Aqua") '0 255 255
Call SetUIElement(14,"Fuschia") '255 0 255
Call SetUIElement(15,"Silver") '192 192 192
Call SetUIElement(16,"Teal") '0 80 80
Call SetUIElement(17,"CUSTOM...")
END SUB
SUB Plugin_Apply(ElementIndex,ElementSubIndex)
' START Hot Tracking code
' Unless marked otherwise, the Hot Tracking code is being used, since it saves time :)
If ElementIndex=1 then
if ElementSubIndex=0 then
Call MsgWarning("No item selected - please select an item first.")
Exit sub
end if
s=""
Select Case ElementSubIndex
Case 1 'Red
s="255 0 0"
Case 2 'Lime
s="0 255 0"
Case 3 'Blue
s="0 0 255"
Case 4 'Yellow
s="255 255 0"
Case 5 'White
s="255 255 255"
Case 6 'Black
s="0 0 0"
Case 7 'Olive
s="80 80 0"
Case 8 'Green
s="0 80 0"
Case 9 'Maroon
s="80 0 0"
Case 10 'Navy
s="0 0 80"
Case 11 'Purple
s="80 0 80"
Case 12 'Gray
s="80 80 80"
Case 13 'Aqua (water to you and me...)
s="0 255 255"
Case 14 'Fuschia
s="255 0 255"
Case 15 'Silver
s="192 192 192"
Case 16 'Teal
s="0 80 80"
Case 17
v=IniReadValue(sF,sS,sV) ' modification
s=InputWindow("Type in the color values for your custom color (for example 255 255 255 would be white, 255 0 0 would be red etc.), and then click OK.",v,1)
End Select
Call IniWriteValue(sF,sS,sV,s) ' modification
Call MsgInformatioN("The new color has been set.")
Call Logoff()
else 'Reset Color
s=RegReadValue(sp)
if IsEmpty(s)=false then
Call IniWriteValue(sF,sS,sV,s) ' modification
end if
Call MsgInformatioN("The default color has been restored.")